---
title: "R12.State Capacity"
output: pdf_document
---

# Load Packages
```{r}
library(tidyverse)
library(stargazer)
```

# Load Data
```{r}
load("Data/data_final.Rdata")
```

# Run Models (App. Table 3cv)
```{r}

m.1 <- lm(Cities_10km ~ resid + as.factor(DistN), data = data_final)
m.2 <- lm(Cities_10km ~ pr_ha_ord + as.factor(DistN), data = data_final)

stargazer(m.1, m.2, type = "text", 
          keep = c("resid", "pr_ha_ord"), 
          covariate.labels = c("Mismatch Index", "% Hectares Expropriated"), 
          dep.var.labels = "Distance to Nearest City, 10Km",
          add.lines = list(c('District FE', 'Yes','Yes'))
          )

```
